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club commodore 



EDITORIAL 



¡hemos 



el milenario...! 



...De suscripciones, claro. En estos 
momentos el número de lectores habi- 
tuales y sistemáticos de "CLUB COM- 
MODORE" supera la cifra de 1.000. 
Esto constituye todo un acontecimiento. 
El respaldo que esto significa para los 
que hacemos la Revista (no debe olvi- 
darse que YA tenemos colaboraciones, 
aunque POCAS) es algo que queremos 
agradecer efusivamente. 

Y ahora ¡basta de sentimentalismos! 
Desde un punto de vista práctico tene- 
mos algo que significará una buena no- 
ticia para nuestros lectores: hemos de- 
sarrollado un programa que permite 
(suponemos) acabar definitivamente 
con los problemas causados por los lis- 
tados y su lectura. Para más detalles 
sobre esta novedad véase el artículo: 
NUEVOS LISTADOS EN "CLUB COM- 
MODORE". 

Otra importante característica de 
este número 6 es la de que iniciamos la 
inserción de publicidad de los distribui- 
dores y suministradores de software 
para los Ordenadores Personales 
COMMODORE. Aunque pueda parecer 
un tema frivolo éste de la publicidad tie- 
ne su importancia pues es el mejor mé- 
todo para conseguir el objetivo principal 
de nuestra Revista, que es ni más ni 
menos que el de suministrar al usuario 
un canal de información lo más comple- 
to posible sobre TODAS LAS ACTIVI- 
DADES que se desarrollen en torno al 
equipo del que es poseedor. 

Una nota final para los que nos remi- 
ten cartas con consultas de todo tipo: 
nos resulta totalmente imposible, dado 
el volumen de correspondencia que re- 
cibimos, contestar personalmente cada 
cuestión. Rogamos a nuestros corres- 
ponsales que tengan paciencia pues 
muchas de las consultas tienen contes- 




tación casi automática en la Revista al 
tratarse de temas que, o bien están en 
preparación, o van a aparecer en un fu- 



turo muy próximo. En resumen: discul- 
pen las molestias y permanezcan aten- 
tos a la Revista. 



V Bm^ í; i'-; C B 



de variables y 

ys" (matrices) 



£jn esto tercer y ultimo articulo de 

organización interna Sel BASIC de 
«Commodore», hablaré de los (ftstltv 

io.s tipos de variables existentes, ba- 

planteamientos matemáticos bina- 



Si directamente creamos la varia- 

(SYS 1024) y visualizamos: 
M 0403 0403 



Observando la fipura 1.b para va- 

los dos primeros bytes corresponden 

Hable utilizada- {$41 = A-, $42 8), 
el siguiente al expone rite en formato 
por. exceso 128 y Jo& egatro.rdstarir 

tes a la mantisa (total 7 bytes). 

Si escribimos — volviendo al BA- 
SIC— CL.R:AB% = 1S {variable en- 
tera, ffg. l a) y visualizamos (con el 

. 0403 C1 C2 00 0F 00 00 00 AA 
calientes al valor de la variable em- 



estructural de 
las cabeceras... 

- 

p.oj . 

.: 

la cadena y tes das siguientes la dJréo 

: 

Los «arrays», también conocidos 
ptar ¡fl¿tftóe¿i constan de.u.na cabece- 

■ 

En la cabecera (fig. 2 bl los dos pri- 

posición de la longitud hasta el inicio 
.., ..... ,' : .. :?:; ...... 

■ ¿itud); El-qútjfttó byfe corífesponde ate 
dimensión, dada af créáíío o ^utilizarlo. 

de la Primera dimensión definida con 

' ' : ' r - : '.-?'ir,- c-'p : ' 

tir. Si fuera de tros dimensiones, exis- 
.-tiríán los byfes 1Q. y í.1¿ y.; ásí sucesi- 
vamente. Como ya es sabido, pode- 
mos utilizar matrices sin dimensionar 
siempre y cuando no superemos el ín- 
dice 10, o sea 11 elementos [0-10). 

Pongamos por ejemplo: CLR:ABÍ0) 
= 1.5, y consultemos al monitor la ca- 
becera y el primer elemento: 

■ : 

,: 04C:; ¿'-'A'- K C'O ■■ :: 

.: C4ÍÍ: ¿0 .; 
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Fig. 1 - Estructura de las variables 
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club commodore 



ELECTRÓNICA 



diseño de filtros 



por R. PARDO 




tste programa está concebido para RL (ohmios): valor de la i 

calcular filtros para altavoces de dos del altavoz. 

y tres vías y de 6 ó 12 dB/octava in- Ft (Hz): valor de la frecuencia de 

distintamente. corte del filtro (dos vías). 

Los datos que pide el programa son: FT. GRAVES (Hz): valor de la fre- 



6dB/oct 



O 



C1 



12dB/oct 




C1 



ra 



L2 : 




C2 Í 



L3 



cuencia de corte más grave (tres vías). 

FT. AGUDOS (Hz): valor de la fre- 
cuencia de corte más aguda (tres 
vías). 

Todos los resultados vienen dados 
en Henrios y microfaradios. 

FUNCIONAMIENTO 

Las líneas 30-90 le piden que elija 
entre un tipo de filtro u otro. Una vez 
elegido, el programa le preguntará el 
número de vías del diseño (líneas 100- 
150/360-420). Hecha la elección, el 
programa calcula los valores corres- 
pondientes de L y C y presenta los 
valores (líneas 200-230/300-350/470- 
520/610-710). Sigue el programa, y 
éste nos pregunta si deseamos iniciar 
un nuevo diseño, terminar el diseño 
o repetir los resultados anteriores, en 
cuyo caso saldrán en pantalla los re- 
sultados que antes habíamos obteni- 
do. Si elige «NUEVO PROYECTO», el 
programa empieza de nuevo; y si no 
se desea seguir, el programa ter- 
mina. 

(termina en la pág. siguiente) 
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longitud desglosados de ta aiguiétitd. 



del S al 12 corresponden af valor aéig- 

de más de una dimensión, distintos 
jo que fo comprobéis vosotros con los 
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fórmulas 
utilizadas 

dos vías 

Ll=RL/(2*[pi]*FT) 

Cl=l/(2*[pi]*FT*RL) 

Ll=(RL*SQR(2))/(2*lpi]*FT) 

Cl=l/(2*[pi]*FT*RL*SQR(2)) 

L2=RL/(2*[pi]*FT2) 

C2=l/(2*[pi]*FT2*RL) 



MUESTRAS 

DE LOS RESULTADOS 



6 dB/Octv. 

RL = 8 Q 
Ft = 4500 Hz 



Ll=RL/(2*[pi]*FTl) 

Cl=l/(2*[pi]*FTl*RL) 

Ll=(RL*SQR(2))/(2*[pi]*FTl) 

Cl=l/(2*[pi]*FTl*RL*SQR(2)) 

L3-(RL*SQR(2))/(2*[pi]*FT2) 

C3=l/(2*[pi]*FT2*Rl*SQR(2)) 



NOTA. — En estas fórmulas [pi] 
equivale al valor de la variable Z. 



2 Vías 



L1 = .282942121 u.H 
C1 = 4.42097064 uF 



3 Vías 

RL = 8 Q 

Ft graves = 2000 Hz L1 = .636619773 [xH 
Ft agudos = 7000 Hz L2 = .181891364 

C1 = 9.94718395 u.F 
C2 = 2.84205256 u.F 



12 dB/Oct. 

RL = 8 Q 
Ft = 4500 Hz 



2 Vías 



L1 = .400140585 u.H 
L2 = .400140585 U.H 
C1 = 3.12609832 u.F 
C2 = 3.12609832 u.F 

12 dB/Oct. 3 Vías 

RL = 8 Q L1 = .900316317 u.H 

Ft graves = 2000 Hz L2 = .900316317 uH 
Ft agudos = 7000 Hz L3 = .257233233 ( iH 
L4 = .257233233 u.H 
C1 = 7.03372123 u.F 
C2 = 7.03372123 uF 
C3 = 2.00963464 uP 
C4 = 2.00963464 



S P0KE36869,PEEK(36869>+2 
10 REM FILTRO HLTRVOCES 

20 REM R. PHROO/CLUB COMMODORE/ 16. 10. 1982 

30 PRIHT"C CLR 3 [RVSON3 [SHIFF3 [ 3HIFI 3 C SHIFL3 
CSHIFT3CSHIFR3CSHIF03 CSHIFS3 CSHIFP3CSHIFP.3 
[SHIFR3CSHIFH3 CSHIFH3 [SHIFL3CSHIFT3CSHIFP,3 
CSHIFV3 [SHIF03 CSHIFC3 [SHIFE3LSHIFS3 CRVSOF3" 



40 PRINT sPRINT" 1-ISHIFF3ILTRO 6DCSHIFB3/OCT 
RVH" 

50 PRINT sPRINT"2-CSHIFF3ILTRO 120CSHIFB3/OC 
THVfl" 

60 PRINT sPRINT" [SHIFP3ULSE 1 O 2" 
70 GETfiísIFH*="l"THEN100 
80 IFHÍ="2"THEN378 
90 GOTO70 

100 PRINT-C CLR 31-CSHIFD3DS VIHS" 
118 PRINT spRINT"2-CSHIFT3RES VIHS" 
120 PRINT:PRINT"tSHIFP3ULSE 1 O 2" 
130 GETBS s I FB*= " 1 " THEN 1 60 
140 IFB*="2"THEN250 
150 GOTO130 

168 PRINT"! CLR 3 " i INPUT" [SHIFR3CSHIFL3<OHM 

S>";RL 

170 PRINT s INPUT" CSHIFF3T<ESHIFH3Z>";FT 
130 Ll = <RL/<2*CCOMMt3*FT>>*1000 
190 Cl = lE*6/<2»CCOMMT3»FT*RL) 

200 PRINT" C CLR 3 CRVSÜN3 [SHIFC3 [SHIFH3 CSHIFL3 
CSHIFC3 [SHIFU3 CSHIFL3 [SHIFOJ [SHIFF3 ESHIFI 3 
CSHIFL3 [SHIFT3 ESHIFR3 CSHIF03 ERVSGF3 " 

210 PRINT sPRINT" CSHIFL31 = ";Llí"UCSHIFH3" 

220 PRINT sPRINT" 1SHIFC1 1=" ;C1 .- "UCSHIFF 1 •• 

230 GOSUB800 

240 GOSUB720 5GOTO180 

250 PR I NT " C CLR 3" s INPUT"[SHIFR3CSHIFL3 <OHM 
SV'sRL 



260 PRINT ¡ INPUT" CSHIFF3T 6RRVES< CSHIFH3Z) " ; 
Fl 



278 PRINT:INPIJT"tSHIFF3T HGUDOS«SHIFH3Z V 



280 L 1- < RL/ < 2* t COMMT 3 »F 1 > ) » 1 E*3 : L2= í RL/ ( 2» E COMMT 3 
*F2))*1E« 



290 Cl = lE+6/(2*CC0MMT3»Fl»RL> ¡C2=lEf6/<2»[C0MMt3 
*F2*RL> 



PRINT-C CLR 3CRVSON3tSHIFC3i:SHIFfi3CSHIFL3 
F3CSHIFI 3 



310 PRINT SPRINT" CSHIFL31-" ,-Ll J "UCSMIFH3" 

328 PRINT SPRINT" CSHIFL32=" ;L2í "UCSHIFH3 " 

330 PRINT SPRINT" CSHIFC31="íCl ; "UCSHIFF3 " 

340 PR I NT s PR I NT " C SH I FC 32= " ; C2 ; " U E SH I FF 3 " 

350 GOSUB800 

368 OOSUB720SGOTO300 

370 PRINT"E CLR 31-CSHIFD30S VIHS" 

380 PRINT 3PRINT"2— CSHIFT3RES VIHS" 

390 PRINT:PRINT"CSHIFP3ULSE 1 O 2" 

400 GETC*sIFC»="l"THEN430 

418 IFC*="2"THEN548 

420 GOTO400 

430 PRINT"! CLR 3 " s INPUT" ESHIFR3CSHIFLKOHM 
SVsRL 

448 PRINT s INPUT" [SHIFF3T< ESHIFHJZÍ "íFT 

450 Ll = C<RL*SQRC2>)/<2*CCOMMt3*FT>>*lE+3:L2 
=L1 

468 Cl=lE+6/<2*ECOMMt3»FT*RL»SQR<2>> sC2=Cl 

470 PRINT"E CLR 3 [RVSON3 ESHIFC3ESHIFH3CSHIFL3 
[SHIFC3 ESHIFU3 CSHIFL3 ESHIF03 ESHIFF3 ESHIFI 3 
[SHIFL3CSHIFT3 ESHIFR3 ESHIF03CRVSOF3 " 

480 PRINT sPRINT"CSHIFL3 1=" ;L1 í "UCSHIFH3" 

498 PRINT SPRINT" ESHIFL32=" ;L2s "UCSHIFHS" 

500 PRINTsPRINT"ESHIFC31=";Cl;"UESHIFF3" 

510 PRINT SPRINT" ESHIFC32=" ;C2s "UESHIFF3" 



530 GOSUB720 3GOTO470 



540 PRINT"C CLR 3 " s INPUT" CSHIFR3 ESHIFL3 <OHM 
SV'sRL 

550 PRINTsINPUT"CSHIFF3T GRfiVESCCSHIFH3Z> ",- 
Fl 

560 PRINT.-INPUT"ESHIFF3T HGUDOSÍ CSHIFH3Z>"j 
F2 

570 Ll = <<RL*SQR<2)>/(2*IC0MMt3*Fl>>*lE*3sL2 
=L1 

580 L3= < < RL*SQR C 2 > > /< 2* i COMMt 3 *F2> >*1 E+3 s L4 
=L3 

590 C 1 = 1 E+6/< 2* E COMMt 3 *F 1 *RL*SQR< 2 > > sC2=Cl 

600 C3=lE+6/<2*EC0MMT3»F2«RL«SQR<2>> sC4=C3 

610 PRINT" E CLR 3 ERVSON3CSHIFC3 CSHIFR3 ESHIFL3 
CSHIFC3 [SHIFU3CSHIFL3 CSHIF03 ESHÍ FF3 CSHIFI 3 
ESHIFL3ESHIFT3ESHIFR3ISHIF03ERVSOF3" 

620 PRINT SPRINT" ESHIFL3 1 = " ;L1 ; "UESHIFH3 " 

630 PRINT sPRINT" CSHIFL32=" fL2; "UESHIFH3 " 

640 PRINT .-PRINT" [SHIFL 33=" ;L3; "UESHIFH3 " 

650 PRINT SPRINT" [SHIFL 34=" ;L4; "UESHIFH3 " 

660 GOSUB800 

670 PR INT : PRINT" CSHIFC3 1=" ;CI í "UCSHIFF3 " 
688 PRINT sPRINT" CSHIFC32=" sC2 s "UESH IFF3 " 
590 PRINT ¡PRINT" CSHIFC33=" ;C3 s "UESHIFF3 " 
708 PRINT sPRINT" C SH IFC]4=" ;C4; "UC SH IFF3 " 
710 GOSUB800sGOSUB720sGOTO610 
720 PRINT"C CLR 3 1-CSHIFR3EPETICION DATOS" 
730 PRINT sPRINT"2— [SHIFN 3UEVO PROVECTO" 
740 PRINTsPRINT"3-C3HIFF3IH DE PROVECTO" 
750 PRINT SPRINT" ESHIFP3ULSE 1,2 O 3" 
760 GETL*sIFLÍ=""THEN760 
770 K=VHLÍL*> sONKGOTO780,30,790 
780 RETURN 

790 P0KE36869,PEEKf36S69>-2sEND 

808 PRINT:PRINT"[SHIFP3LILSE UNA TECLft" 

818 GETK*sIFK*= — THEN810 

320 RETURN 

REHDV. 
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RADIOAFICIÓN 



para el 



por EA3CIW 




Esta colaboración, que nos manda EA3CIW, consiste en un pequeño 
programa de recepción de señales de RTTY aprovechando todo el pro- 
tocolo RS232 que incorpora el VIC-20. 



E I sistema presentado está basado 
en los libros THE VIC REVEALED y 
PROGRAMMERS REFERENCE GUIDE, 
en los cuales hay suficiente informa- 
ción para ver el manejo del canal RS 
232 desde BASIC, así como desde có- 
digo máquina, que es el número 2; y 
en distintas revistas y publicaciones 
para obtener el alfabeto Baudot y sus 
conversiones. 

En la línea 100 del programa de la 
figura 1 se abre el canal RS232 para 
5 bits, 1 bit de stop, 50 bauds y «half 
dúplex». Podemos programar directa- 
mente en el VIC cualquier velocidad 
de transmisión de las siguientes: 50, 
75, 110, 134.5, 150, 300, 600, 1200, 1800 
y 2400 bauds, y utilizar desde 5 hasta 
8 bits. Esto quiere decir que por el mis- 



mo método, sólo cambiando el pro- 
grama, podremos recibir emisiones 
en ASCII a 110 bauds. 

De todas maneras, para poder reci- 
bir correctamente las estaciones de 
radioaficionados que transmiten a 
45.45 bauds, se incorpora la línea 120 
que modifica la base de tiempos. En 
el caso de querer escuchar estaciones 
profesionales de información que 
transmitan a 50 bauds deberemos eli- 
minar esta línea. 

Una de las que mejor se reciben es 
«The Associated Press London» que 
transmite a 50 bauds en la frecuencia 
de 6.985,3 KHz y en «reverse». Esto 
quiere decir que escuchada en LSB 
(banda lateral inferior), como es cos- 
tumbre, el tono agudo corresponde al 



espacio. En la mayoría de demodula- 
dores se incorpora esta opción que 
consiste en un simple inversor. 

El resto del programa consta de la 
preparación de la tabla de conversión 
de los caracteres del alfabeto Bau- 
dot a los normales del VIC-20 (líneas 
500-530) y de la parte editora de los 
textos. 

Como es frecuente que haya fading 
y/o ruidos se permite que, pulsando 
la tecla de función F2, se pueda cam- 
biar de números a letras y viceversa 
durante la recepción. 

En la figura 2 se muestra el esquema 
de bloques del modulador-demodula- 
dor que ha preparado EA3CIW (Box 
482, Sabadell), que incorpora: «rever- 
se» y/o normal, PTT («push to talk»), 
transmisión directa en FSK, si el trans- 
ceptor lo Incorpora, y modulador para 
hacerlo vía audio o en el caso de tra- 
bajar RTTY en FM. Para el trabajo en 
CW utiliza el PTT para manejar la emi- 
sora y el filtro del demodulador para 
la recepción. ■ 



RTTV — RX 2.2 

10 REM *** RTTV-RX 2.2 ** 
20 REM *** POR ER3C I W *** 

100 OPEN2 ,2.2, CHR* <97 i +CHR* < 1 6 5 : OET#2 , R* 
: POKE36876, 241 
110 DIM MJÍC31 , 1 > 

120 POKE665, 122 : POKES66, 93 : REM*** 43.43 
BfiUDS *** 

300 DRTR0 , , 69 ,31, 17, 17, 63 , 43 , 32 , 32 , 83 , 3 
9, 7-3, 56, 85, 53, 13, 13, 68, 42, 82, 52 
510 DflTñ74 , 7, 7*8, 44, 7"0, 35, 67, 58, 7-3, 40, 84, 
53 , 30 , 43, 76, 41 , 87* , 50 

520 DRTR72 ,36, 39 , 34 , 80 , 48 ,81,49,79, 57 , 66 

,63,71,37,8,0,77,46, 88 , 47 , 86 ,61,0,0 

530 FOR I =0TO3 1 = REfiDMÍi C I , > , MK < I , 1 > = HEXT : 

D=0 

1000 DET#2, C* : C*=CÍ+CHR$(8) 
1010 C=HSC(C*) 

1020 I FC=27THEHD= 1 : GOTO 1 000 

1 025 I FC=3 1 THEHD=0 : OOTO 1 000 

1030 GETflí ■ I FHÍ OCHRt ( 1 34) THEN1 040 

1035 IFDTHEHD=0 : GOTO1040 

1037 IFD=0THEHD=1 

1040 REM 

2000 E=MK<C,D> : IFE=7THEH2100 

2020 I FE» 1 7RNBF= 1 3THEH 1 000 

2050 PR I NTCHR* CE);: F=E ■ GOTO 1 000 

2100 POKE36878, 15 : FORI=1TO100 ; NEXT : POKE3 
6878,0: OOTO 1 000 

RERDV, 
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Fig. 1 
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los nuevos listados de 
"CLUB COMMODORE" 



por PERE MASATS 



Ein una reunión del nuevo Club de 
Usuarios de Barcelona (por cierto fue 
en la primera) al preguntar la opinión 
de los presentes sobre nuestra Re- 
vista y después de montañas de elo- 
gios a CLUB COMMODORE (¡EJEM!) 
la crítica más enérgica (y prácticamen- 
te la única) fue dedicada a los lista- 
dos de nuestra Revista y concretamen- 
te a la dificultad de leerlos. En conse- 
cuencia y luego de discutir largamen- 
te el asunto con el Equipo Redactor 



Habitual se ha llegado a dos importan- 
tes conclusiones, a saber: 

PRIMERA. — Hay que hacer algo 
respecto al tema de los listados y 

SEGUNDA y no menos importante: 

LOS CLUBS DE USUARIOS SON MUY 
ÚTILES PARA OBLIGARNOS A 
AFRONTAR LAS DURAS REALIDADES 
DE LA VIDA MICROINFORMÁTICA. 



En lo que respecta a la primera, a 
continuación se presenta nuestra so- 
lución; y en cuanto a la segunda... 
Los USUARIOS TIENEN LA PALABRA. 

La solución en principio debe reunir 
ciertas características: 

A) El listado debe hacerse a través 
de un ordenador, no sólo por razones 
de presentación sino porque es la ma- 
nera de evitar errores en los listados. 



LIST DE LIST, VERSION ANTIGUA 











500 


IFAÍ== 




THENHí = 


'C 


:OMHT3" 


: RETURN 


REñDV. 






510 


IFM*= 


'1 


THENHÍ= 


' [ 


3HIFT3" 


:RETURN 










520 


IFA*= 




THEHMÍ= 


! i 


ÜI-1MV ¡ " 


:PET 


IRN 


REt'l PROGRAMO PfiRñ HACER LI: 


TAOCS CCSM 


3023) 


530 


IFA*= 


' 1 


THENAÍ= 




■Hicv] " 


•RET 


IRN 


10 


H*=" " :X=0 






S4R 


1FH*= 




THENfií- 


1 i 


iCJMMUj" 


:RET 


IRN 


20 


PRI NT "CFRDORAMA PARA LISTAR PROGRAMAS 




550 


IFfl*= 




THENAí- 




=.HIFU3 " 


:RET 


IRN 


se 


I NPUT" NOMBRE "jS* 






560 


IFfl*= 




THENrlí = 


■í 


"OMMIl" 


:RET 


IRN 


40 


INPUT" CARACTERES" :B 






570 


IFAÍ= 




THENHÍ = 


■í 


■HIFJ 3" 


:RET 


IRN 


50 


JPEN1 ,9,2,"0:"+S**" .S.R" :< 


1PEH4 , 4 : PR I NT#4 , CHR* < > 


580 


¡Fh*= 




THEHft*= 


•L"> 


ÚMMi.'O" 


¡RETI 


«N 


5 1 OREN 13,4,1 3 : PR I NT# 1 3 : GLOSE 1 3 




590 


IFA*= 


= 


THENHÍ= 


'C 


■HIF03" 


:RET 


IRN 




DREN 1 5 , 4 , 1 5 : PR I NT# 1 5 : CLOSE 1 5 




600 


IFA*= 




THEhHi- 


'ti 


:üt1MP 3 " 


¡RETI 


IRN 


60 PRINTS4, "PROGRAMA "+S* 






610 IFB*="TTHENñ*= 


•[ 


3HIFF3" 


:PET 


JRN 


70 


=rint#4,i:hrí<:i:j 






620 


IFfl*= 




THENHí = 


'[ 


30NMI5 3 " 


:RET 


IRN 


100 


IFST=64THEHCL0SE1 :PRIHT#4 :CL0SE4 ¡RUN 




630 


IFA#= 


•J 


THENAÍ- 


'[ 


"HIFi-J " 


:PET 


IRN 


1 10 


GET # 1 ,A* 






640 


ÍFAi= 




T HENAÍ- 


't' 


:OMM*3" 


•RETI 


iRN 


120 


GOSUB170 








IFA*= 




THENAí= 


'ti 


:HIF*3 " 


•RET! 


JRN 


130 


Hí=H*+AÍ 






660 


IFA*= 


' IT 


THENf=r*= 


'[i 


:ÜMM T < " 


RETI 




140 


IFÍLENCH*:):>=ejORCA*=CHRÍ 


13ÍJTHENPRI 


ST#4,H*:PRINTH*:HÍ="" 


670 


IFA*= 


' rr 


THENfl*= 


■i: 


íHIFI 3 " 


RETI 


IRN 


150 


REM I FLEN CH* > =BTHENPR I NT#4 , H* : PR I NTH* ¡H*=" " 


680 


IFA*= 




THENA*= 


'[( 


~OMMfl3" 


:RETi 


IRN 


160 


GOTO100 






690 


IFfl*= 




THENAÍ = 


■[ 


3HIFA3" 


:RET 


IRN 


170 


IFfl*=°"B"THENfl*=" [XRSRG3 " 


RETURH 




700 


IFAÍ- 




THENR*= 


1 Ci 


:OMHS 3 " 


:RE1 ' 


IRN 


188 


IFA*= "3" THENA*= " í CRSRU 3 " 


RETURN 




710 


IFm*= 


■• 


THEHAí = 


'[ 


~HIFS3" 


¡RET 


IRN 


1 90 


IFA*= " U" THEHA*= " [ CRSRR .1 " 


RETURN 




720 


IFA*= 


t 


mÉNA*= 


•Ti 


OMMÜ J " 


■RETI 


IRN 


200 


IFHÍ="||"THENA*=" ECRSRL3 " 


RETURN 




730 


IFA*= 




THENñí= 


'[< 


".HIFD3" 


•RETI 


IRN 


210 


3 FAÍ= " Si" THENA*= " [ HOME J " 


RETURN 




740 


IFAí^ 


• 


THE¡,AÍ = 


'Ci 


OMMF 3 " 


•RETI 


IRN 


220 


IFA*="3"THENfl*="C CLR 3" 


RETURN 




750 


IFA*= 




THENAí= 


't< 


■H1FF3" 


RETI 


IRN 


230 


IFA*="1"THENA*="C BLK 3" 


RETURN 




760 


IFA*= 


■| 


THEt«W* 




l'MMGJ" 


:R'x.n 


IRN 


240 


IFA*="3"THENAÍ="C UHT 3" 


RETURN 




770 


IFfl*= 


'1 


THEHHÍ= 


■[ 


■H I FG ] " 


:RET 


IRN 


250 


IFA*="M"THEHA*="r RED 3" 


RETURN 






IFA*= 


'! 


THENAÍ 1_ - 




OMMH 3 " 




IR 1 - 


260 


IFAí='V"THENA*="C CVN 3" 


RETURN 






IFA*= 


' 1 


THENAÍ = 


'C 


•HIFH3 " 


¡REtj 




270 


IFA*="a''THENÁ*=": PUR 3" 


RETURN 




300 


IFR>*= 


1 


1 HEMñf = 




xsm 3 3" 


•RE 1' 


IRN 


2S0 


IFñ*="i|"THENA*="[ GRH 3" 


RETURN 




810 


IFA*= 




THENA*= 


'C 


■.HTFJ3" 


RET! 


IRN 


290 


IFA*="3"THENñ*="[ BLU 3" 


RETURN 




828 


IFA*= 


) 


THENfl*= 


[1 


"OMMI.l" 


REI". 


IRN 


300 


IFA*="B"THENA*="[ VEL 3" 


RETURN 




830 


1 FH*= 




THE'IA* = 


'[■ 


■HIFK3" 


:RETI 


IRN 


310 


IFA*= " fi" THEHñf = " [ RVSON 3 « 


RETURN 




840 


IFAÍ= 


1 


THENHÍ = 


" 


ÚMML3" 


•RETI 


ir:. 


320 


IFA»="""THENfi*="[RVSGF3 " 


RETURN 




850 


IFAÍ= 


•L 


THENA$= 




^HIFL3 " 


RETI 


IRN 




IFP*="«"THENA*="£INST 3 " 


RETURN 




860 


IFfl*= 




THEHAí= 


'[I 


0''"'tr:j " 


RETi 


IRN 


340 


IFA*="a"THENA*="[CTRLí-3" 


RETURN 




870 


IFA*= 




THENAÍ- 


1 í' 


■ HIFr: " 


RETI 


IRN 


350 


PEMIFf»»" : "THENA*=" : "+CHf 


:*( 13) 




88G 


IFli*= 




THfc"NA*= 


■íl 


:C?tlM>í3" 


RETI 


IRN 




IFA*="a"THENA*=" [C0J1M+3 " 


RETURN 




890 


IFA*= 




THENA*= 


'[< 


~hifx: " 


RETI 


JRN 




IFA*="+"THEHA*=" CSHIF+3 " 


RETURN 




900 


IFH*= 




THENfl*= 


■a 


;OMMC3 " 


•FE Ti 


IRN 


380 


I FAÍ= " | «THENfi*» " C COMM- 3 " 


RETURN 




910 


IFfi*= 




THENAÍ = 


i 


>HIFC 3 " 


:RETl 


IRN 


390 


IFA*=" | "THENñ*=" [SHIF-3 " 


RETURN 




920 


IFAÍ= 


' ■ 


THENA*= 


•íi 


GMHV]" 


¡RETÍ 


IRN 


400 


IFA#=" a5 "THENA*=" CCOMME3 » 


RETURN 




930 


IFA*= 




THE'-AÍ = 


■[■ 


ÍHIFV3" 


PE TI 


IRN 


410 


IFA*="r"THENA*=" CSHIFE3 " 


RETURN 




940 


IFfW- 




THEt'HÍ^ 


•íi. 


¡OMiie i " 


REI 


IRN 


420 


I Ffií= " y» THEHfi*= " t COMMQ 3 " 


RETURN 




950 


IFA*= 


1 : 


THENAÍ= 


■í- 


~HIFE3 " 


RETI 


IRN 


430 


I FA* = " • " THENA*= " CSHIFQ3 " 


RETURN 




960 


IFA*= 


■ l' 


THE>-,AÍ = 


íi 


0MHN3" 


RETI 


IRN 


440 


IFA*='M "1 HENA*=" CCQMMW3 " 


RETURH 






I FHt= 




THENAÍ = 


■íi 


5HIFII3" 




IRN 


450 


rFH*="0"THEHA*="tSHIFW3" 


RETURN 






I FA*~- 


' l 


THENAÍ = 


■íi 


•OMMN3" 


•í-ET! 


IRN 


460 


IFA*="J-" THEHA#=" CC0MME3 " 


RETURH 






IFA*= 


■ ¡ 


THE'IAÍ = 


■íi 


OMMM J " 


RETI 


IRN 


470 


IFA*= " — ' THENfi*= " CSH I FE 3 " 


RETURN 




10«1 




■ rHENÑí= ■■ r 8H I FM] 


¡RETURN 


480 


IFA*="-r"THENAI=" [C0MMR3 " 


RETURN 




mñ 


RETURH 












490 


IFfl*="_"THENAÍ=" CSHIFR3 " 


RETURN 




RERD't 


















club commodore 



B) Deben sustituirse todos los 
gráficos por algún tipo de mensaje 
que contenga la secuencia de teclas 
con las que se consigue el signo. 

C) Por razones de impresión de la 
Revista debe limitarse el ancho del 
listado para poder «jugar» con los ori- 
ginales y obtener un fotolito lo más 
claro posible. (Este detalle es el me- 
nos evidente para el lector.) 

D) El listado debe ser fácilmente 
«recortable» en diferentes secciones 
por personal sin conocimientos de 
programación BASIC — por cierto: un 
saludo para ellos — para adaptarlo a 
las necesidades de compaginación. 

Atendiendo a estos parámetros se 
preparó el programa que se ilustra en 
la figura y que se da en las dos formas, 
antigua y actual. 

El funcionamiento del programa es 
el siguiente: en el VIC [o en cualquier 
otro equipo COMMODORE dotado de 
una unidad de discos 4040) se carga o 
escribe el programa que se quiere lis- 
tar, se corrigen todas las travesuras 
de BUG y, cuando estamos seguros de 
su funcionamiento, hacemos lo que 
sigue: 

OPEN 1,8,2,"0:NOMBREDEL PROGRA- 
MA,S,W" y RETURN 

Esto abre en la unidad de disco un 
fichero secuencial en escritura. Lue- 
go: 

CMD1:LIST y RETURN 

Así listamos el programa en forma 
alfanumérica en el disco, lo que nos 
servirá para su manejo posterior por 



nuestro programa. 
READY tecleamos: 



Cuando aparece 



CLOSE1 y RETURN 

Lo que nos cierra el fichero. Y ya 
tenemos nuestro programa listo para 
ser formateado y convenientemente 
listado. Obsérvese que el programa 
sigue siendo el mismo sin que reali- 
cemos sobre él ninguna copia o alte- 
ración manual. 

Una vez tenemos el programa en 
forma de fichero secuencial en un 
disco de VIC (todo este procedimien- 
to es fácilmente adaptable a otros 
equipos COMMODORE), pasamos a 
otro equipo dotado de una impresora 
sofisticada (la CBM 8023) que, entre 
otras cosas, permite la doble impre- 
sión, lo cual mejora los originales pa- 
ra los fotolitos. El equipo 8032 que 
también sirve con un programa de pro- 
ceso de texto para la redacción de los 
artículos de CLUB COMMODORE, es- 
tá conectado a una unidad de disco 
4040 (compatible con el disco del 
VIC) además del suyo propio (un 
8050); el 4040 es periférico 9 y el 8050 
es el 8. 

En la CPU 8032 se carga el progra- 
ma que listamos en las dos versiones 
y su ejecución permite los nuevos lis- 
tados. Veamos cómo trabaja: 

La línea 10 inicializa las variables, 
la 30 pregunta el nombre del progra- 
ma que tenemos en el disco y quere- 
mos listar. 

La 40 nos pide el número de carac- 
teres de ancho con que queremos que 
salga el listado. La 50 abre el fiche- 
ro en la unidad de disco con el nom- 
bre que hemos dado; también inicia 
el funcionamiento de la impresora. El 
PRlNT#4,CHRS(0) es un resto del 



programa para funcionar con otro tipo 
de impresora y puede eliminarse. Las 
líneas 51-52 hacen que la impresora 
golpee dos veces cada carácter, lo 
que mejora la impresión (a costa de la 
velocidad, como es típico) y en caso 
de utilizar la del VIC pueden elimi- 
narse. La línea 60 imprime al princi- 
pio del listado el nombre del progra- 
ma, lo que es de agradecer cuando se 
manejan unos cuantos originales al 
mismo tiempo. De la línea 70 diremos 
que es otro resto del trabajo con otra 
impresora. 

La línea 100 busca el fin del fichero. 
Si lo encuentra, termina el listado, 
cierra el fichero y vuelve al principio 
del programa por si deseamos otro 
listado. La línea 110 toma un carácter 
del listado en el disco para procesarlo 
como la variable AS. En la línea 120 se 
salta a la subrutina 170 que es la que 
se encarga de sustituir el contenido 
de AS por su equivalente alfanumé- 
rico si es un carácter gráfico. En la 
línea 130 se «suma» en alfabético el 
contenido de AS al de HS que es la que 
contiene el resto de la línea actual, 
en 140 si la longitud de HS supera el 
número de caracteres que hemos asig- 
nado con la variable B o si el carácter 
que acabamos de leer del disco es un 
RETURN (lo que indica que hemos ter- 
minado de leer una línea del progra- 
ma) HS se imprime y el proceso con- 
tinúa hasta que ha terminado el pro- 
grama. (La línea 150 es otro resto.) 

La subrutina 170 creemos que se 
explica por sí sola. No obstante, por 
razones de presentación, hemos teni- 
do que usar la terminología inglesa 
para designar los movimientos del 
cursor al no poder distinguir con una 
sola letra y sin el uso de gráficos las 
funciones ARRIBA-ABAJO. 

(continúa en la pág. siguiente) 



BOLETÍN DE SUSCRIPCIÓN - club commodore 



NOMBRE EDAD 

DIRECCIÓN 

POBLACIÓN ( ) PROVINCIA 

TELÉF MARCA Y MODELO DEL ORDENADOR 



APLICACIONES A LAS QUE PIENSA DESTINAR EL EQUIPO 



Deseo iniciar la suscripción con el n.° 7 



(Enviar a la dirección del dorso) 



Firma, 



DESEO SUSCRIBIRME A "CLUB COM- 
MODORE" POR UN AÑO AL PRECIO 
DE 1.980 PTAS., QUE PAGARÉ CON- 
TRA REEMBOLSO AL RECIBIR EL NÚ- 
MERO CON EL QUE SE INICIA LA SUS- 
CRIPCIÓN. DICHA SUSCRIPCIÓN ME 
DA DERECHO, NO SÓLO A RECIBIR LA 
REVISTA (ONCE NÚMEROS ANUA- 
LES), SINO A PARTICIPAR EN LAS AC- 
TIVIDADES QUE SE ORGANICEN EN 
TORNO A ELLA Y QUE PUEDEN SER: 
COORDINACIÓN DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 
MAS, CONCURSOS, ETC. 



mi club commodore 

8 

los listados de 
CLUB COMMODORE 

(conclusión) 

Otro «resto» de pruebas es la línea 
350, que sin el REM, iniciaba una nue- 
va línea de listado cada vez que se 
encontraba un signo ":" Así separaba 
las sentencias de una línea, pero los 
resultados no justificaban, a nuestro 
juicio, el «alargamiento» del listado. 

NUEVO TIPO DE LISTADO 

PROGRAMA LIST OE LIST 



REM PROGRAMA PARA HACER LISTADOS <CBM 80 

23 > 



20 PRINT"C CLR I PROGRAMA PARA LISTAR PROGR 
AMAS" 

30 I NPUT " NOMBRE " ; S* 

40 I NPUT " CARACTERES " ; B 

50 OPEN 1 , 9 , 2 , " ¡ " +S*+ " , S , R " ¡ 0PEN4 , 4 ¡ PR I NT# 
4,CHRt(0í 

51 0PEN13,4,13:PRINT#13:CLOSE13 

52 0PEN15,4,15:PRINT#15:CL0SE15 
60 PRINT#4, "PROGRAMA "+S* 

?0 PRINT#4,CHRt(l) 

100 IFST=64THENCL0SE1 ¡PRINT#4 :CL0SE4 :RUN 
110 GET#1,A* 
120 GOSUB170 
130 H*=H*+A* 



140 IF<LEN(H*»=B)OR(A*=CHR*a 
#4,H*¡PRINTHt¡H*=" " 



150 



,H*:PRINTH*:H 



160 GOTO100 

170 ifhí="ecrsrd3"thena*="ccrsrd3" ¡return 
180 ifa*=" ecrsru3 " thenat= " c crsru i " ¡return 
190 ifa*="ecrsrr3"thena*="ecrsrr3" ¡return 
200 iffl*=" ecrspl3 "thenaí=" ecrsrl3 " :return 



220 
230 



296 
380 
310 
320 
330 



360 
370 
3S0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 



IFA*=" CHOME 3 "THENA*=" CHOME 1 " :RETURN 

IFAt="E CLR 1 "THENA*=" E CLR 3 " :RETURN 

IFA$="E BLK 3"THENH*="E BLK 1 " ¡RETURN 

IFR*="E WHT 1 "THENR*=" E WHT I " :RETIJRN 

IFA*-"E RED ] "THENAÍ=" E RED ] " :RETIJPN 

■ 

IFRÍ="E CVN 3 "THENA*=" C CVN 3 " :RETURN 
IFA*="E PUR 3"THENA*="E PUR 3 " ¡RETURN 
IFR*="E GRN ] "THENA*=" C GRN 3 "¡RETURN 
IFfl*="E BLLI 3"THENfl*="E BLU 3 " ¡RETURN 
IFA*="C VEL ] "THENAÍ=" C VEL 3 " ¡RETURN 
I FAÍ = " E RVSON 3 " THENAÍ = " E RVSON 3 " ¡ RETURN 
I FA*= " E RVSOF 3 " THENA*= " E RVSOF 3 M : RETURN 
IFA$="EINST 3"THENA*="EINST 3 "¡RETURN 
IFAt=" CCTRL<-3 "THENAÍ=" ECTRL*-3 " : RETURN 
REM I FAÍ = " : " THENA*= " : » +CHR* (13) 
IFA*=" ECOMM+3 "THENA*=" ICOMM+3 " : RETURN 
IFA*="[SHIF+3"THENA*="ESHIF+3" : RETURN 
I FA*= " I COMN- 3 " THENA*= " E COMM- 3 " : RETURN 
I FA*= " E SH I F- 3 " THENH*= " E SH I F- 3 " ¡ RETURN 
IFA*=" ECOMM£3 " THENA$= " C COMM£3 " : RETURN 
I FAS = " E SH I F£3 " THENH*= " E SH I F£3 " ¡ RETURN 
IFA*= » I COMMG 3 » THENA*= " C COMMQ 3 » : RETURN 
IFA*=" E SHIFQ3 " THENH*= " ESHIFQ3 " : RETURN 
IFA*=" ECOMMW3 "THENñí= " ECOHNW3 " : RETURN 
IFA*=" ESHIFW3 "THENAÍ=" ESHIFW3 " :RETURN 
I Fñ*= " E COMME 3 " THENH*= " E COMME 3 " : RETURN 
I FR*= " E3HIFE ] " THEHRÍ = " ESHIFE3 " : RETURN 
I FR*= " E COMMR 3 " THENAÍ= " E COMMR 3 " : RETURN 
IFñí=" E SHIFR3 "THENA*=" ESHIFR3 " : RETURN 
I FA*= " ECOMMT 3 " THENA*= " E COMMT 3 " : RETURN 
IFñ*=" ESHIFT3 "THENflí=" ESHIFT3 " ¡RETURN 
IFAt=" ECOHMV3 "THENA$=" ECOMMV3" : RETURN 
IFA*="ESHTFV3"TH£NA*="ESHIFV3" ¡RETURN 
I FA*=" E COMMU3 " THENR*=" E COMMU 3 » ¡RETURN 
I FA*= " E SH I FU 3 " THENA*=" " E SH I FU 3 " ¡ RETURN 
I FA*= " ECOMMI 3 "THENA*=" E COMM I 3 " ¡ RETURN 
I Ffl*= " C SH I F 1 3 " THENA*= " C SH I F I 3 " : RETURN 
I FA*= " E COMMO 3 "THENA*=" E COMMO 3 " ¡RETURN 
IFR*=" ESHIF03 "THENA*=" ESHIF03 " ¡RETURN 
I FA*= » [ COMMP 3 " THENA*= " [ COMMP 3 " ¡ RETURN 
I FA*= " E SH I FP 3 " THENA*= " E SH I FP 3 " ¡RETURN 



620 IFA*="CCOMMI13"THENH*="ECOMM@3" ¡RETURN 
630 I Fñ*= " E SH I Fe 3 " THENHÍ = " ESHIFG3 " ¡ RETURN 
640 IFA*="ECOMM*3"THENH*«"ECOMM*3" ¡RETURN 
650 I FA*= " E SH I F* 3 " THENA*= " [ SH I F* 3 " ¡ RETURN 
660 IFA*=" E COMMT 3 " THENA*= " E COMMT 3 " : RETURN 
670 IFA*=" CCOMMT3 "THENA*=" ESHIFT3 " ¡RETURN 
680 I FA*= " E COMMA 3 "THENA*=" ECOMMA3 " ¡RETURN 
690 IFA*=" ESHIFA3 "THENft$=" ESHIFA3 " ¡RETURN 
780 IFA*="ECOMMS3"THENA*="ECOMMS3" ¡RETURN 
710 IFA*="ESHIFS3"THENH*="ESHIFS3" ¡RETURN 
720 IFA*=" ECOMMD3 "THENA*=" ECOMMD3 " ¡RETURN 
730 I FA*= " E SH I FD 3 " THENA*= "ESHIFD3" ¡RETURN 
740 I FA*= " E COMMF 3 " THENA*= " E COMMF 3 " ¡RETURN 
750 I FA*= " E SH I FF 3 " THENA*= " E SH I FF 3 " ¡RETURN 
760 I FA*= " E COMMG 3 " THENA*= " E COMMG 3 ": RETURN 
770 IFA*="ESHIFG3"THENA*="[SHIFG3" ¡RETURN 
780 IFA*="ECOMMH3"THENA*="CCOMMH3" ¡RETURN 
790 IFA*=" ESHIFH3 "THENA*=" ESHIFH3 " ¡RETURN 
800 IFA*="ECOMMJ3"THENH*="ECOMMJ3" ¡RETURN 
810 IFA*="ESHIFJ3"THENH*="ESHIFJ3" ¡RETURN 
820 I FA#= " E COMMK 3 " THENA*= " E COMMK 3 " ¡RETURN 
830 I FAt= " E SH I FK 3 " THENA*= " [SHIFK3 " ¡ RETURN 
840 IFA*=" ECOMML3 "THENA*=" ECOMML3 " ¡RETURN 
850 IFA*="CSHIFL3"THENH*="ESHIFL3" ¡RETURN 
860 IFA*="ECOMMZ3"THENA*="ECOMMZ3" ¡RETURN 
870 IFA*="ESHIFZ3"THENA*="ESHIFZ3" ¡RETURN 
888 IFAÍ=" ECOMMX3 "THENA*=" ECOMMX3 " ¡RETURN 
890 IFA*="ESHIFX3"THENR*="ESHIFX3" ¡RETURN 
900 IFH*="ECOMMC3"THENAÍ="ECOMMC3" ¡RETURN 
910 IFA*="ESHIFC3"THENA*="ESHIFC3" ¡RETURN 
920 IFA*=" E COMMV 3 " THENAI= " E COMMV 3 " ¡RETURN 
930 IFA*="ESHIFV3"THENA*="[SHIFV3" ¡RETURN 
940 IFA*="ECOMMB3"THENR*="CCOMMB3" ¡RETURN 
950 IFA*="ESHIFB3" THENA#= " E SH I FB 3 " ¡ RETURN 
960 IFA*=" ECOMMN3 "THENA*=" ECOMMN3 " ¡RETURN 
970 I FA*= " E SH I FN 3 " THENAÍ = " E SH I FN 3 " ¡RETURN 
980 IFA*=" E COMMN 3 "THENA*=" E COMMN 3 ": RETURN 
990 IFA*=" E COMMN 3 "THENfl*=" E COMMM 3 " ¡ RETURN 
1000 IFA*="ESHI FM 3 " THENA*= " E SH I FM 3 " ¡RETURN 

1010 RETURN 
REAOV. 




club 



microelectrónica HHI ■■■ IH Taquígrafo Serra. 7, 5.' planta 



MULTICENTRO DE INFORMATICA 




COMECOCOS. 3,5K. A/R. G/E. JY. EXTRAORDINARIA VERSION 
DEL POPULAR PUCKMAN. COLOR Y MOVILIDAD INSUPERABLE . 

VICGAMON. + 3K. JUEGO DE INTELIGENCIA QUE LE MANTENDRA 
EN TENSION HASTA DERROTAR A SU VIC 1 

ASTEROIDS WAR. 3.5K. C/M. A/R. G/E. JY. ESPECTACULAR BATA- 
LLA GALACTICA CONTRA LA NUBE PROTONICA EN 3 DIMENSIONES 1 

FROGGER. +3K y 3,5K. C/M. A/R. G/E. JY. ULTIMA NOVEDAD 
EN EE.UU. CRUZAR EL PELIGROSO RIO Y LA AUTOPISTA SUICIDA 

RATMAN. +8K. C/M. A/R. G/E. DE LA BOVEDA CELESTE DES- 
CENDERAN EXTRAÑAS RATAS ATOMICAS. ESPECTACULAR ANI- 
MACION 

SHARK ATTACK. 3,5K. C/M. A/R. JY. EN MEDIO DEL OCEANO 
SERA ATACADO POR LOS PELIGROSOS TIBURONES. DEFIENDASE 
CON SU RED ATOMICA 



800 



800 



ROX III. 3,5K Y + 8K. C/M. A/R. G/E. JY. DESDE SU SOFISTICADA 
BASE LUNAR DEFIENDA SU PLANETA DEL ATAQUE DE LOS UFOS 1 



PUERTO RICO, 21-23 - MADRID-16 TEL. 250 74 02 -250 74 04 

commodore VIL 

• MYRIAD. +3K. C/M. A/R. G/E. JY. LA MAS ESPECTACULAR 
1.900 AERONAVE PARA DESTRUIR LAS CRIATURAS COSMICAS EN SU 

VIAJE GALACTICO 2.000 

• COSMIADS. 3,5K. C/M. A/R. G/E. JY. VERSION ULTRARRAPIDA 
DEL MUNDIALMENTE FAMOSO JUEGO "GALAXIANS". INCREIBLES 
EFECTOS SONOROS 1700 

• BLITZRIEG. 3,5K. C/M. A/R. G/E. JY. DESTRUYA LA CIUDAD 
ENEMIGA CON SU BOMBARDERO. 25 NIVELES DE JUEGO 1.600 

2.000 • DEFENSA. +8K. C/M. A/R. G/E. JY. N.° 1 EN INGLATERRA, 
COMO GUERRERO GALACTICO DEBE DEFENDER A LOS HUMA- 
NOIDES CONTRA LOS ENEMIGOS CIBERNETICOS. 9 NIVELES DE 
JUEGO. ESPECTACULAR NAVE Y SONIDOS 2.000 

1.900 

• VIC PANIC. 3,5K. C/M. A/R. G/E. JY. VERSION DEL POPULAR 
"SPACE PANIC". ESCALE LAS LADERAS Y HUYA DE LOS MONS- 
TRUOS 1-800 

• SKRAMBLE. 3,5K. C/M. A/R. G/E. JY. ATRAVESANDO LOS TEMI- 
BLES PASADIZOS INTERESTELARES DESTRUYA LAS BASES ENEMIGAS 1.900 



.900 



800 



.ULTISOUND SYNTHETIZER. 3,5K. ¿UN ORGANO EN SU VIC? 
¿CON ACOMPAÑAMIENTO, BATERIA Y EFECTOS ESPECIALES? . . 



SKI-RUN. 3,5K. C/M. A/R. 
PISTAS DE COMPETICION. 
9 NIVELES 



G/E. DESLICESE POR LAS HELADAS 
SLALOM, S/GIGANTE, DESCENSO. 



1.900 



1.800 



FIREBIRD. (SPACE PHREEKS). 3,5K. C/M. A/R. G/E. JY. ANO 
3.010. VD. ES EL UNICO SUPERVIVIENTE DE LA BATALLA DE 
RIGELLIAN. DEBERA COLONIZAR OTRO PLANETA Y LUCHAR 
CONTRA LAS CRIATURAS GALACTICAS 1 .900 

BREAKOUT. 3,5K. CONSIGA DESTRUIR LA PARED DE LADRILLOS 
MULTICOLORES CON LA BOLA MAGICA. INCLUYE "MASTERMIND". 1.600 

' AJEDREZ. PRIMERA VERSION EN CASSETTE CON GRAFICOS EN 
ALTA RESOLUCION. BASTANTES NIVELES DE JUEGO. (STANDARD) . 2.800 

' SHADOWFAX. INCREIBLES GRAFICOS ANIMADOS. EL CABALLERO 
DE LAS SOMBRAS EN LUCHA CONTRA LOS JINETES DEL TIRANO 
j INVASOR. (STANDARD) 1.900 

[• SNAKE. COLORIDO, MOVIMIENTOS Y GRAFICOS EXCEPCIONA- 
I LES. VERSION DEL FAMOSO JUEGO DE LAS SERPIENTES (SNAKE). 
4 (STANDARD) 1.900 

i» VIC PRINT. +8K. EXTRAORDINARIO Y SENCILLO PROCESADOR 
I DE TEXTOS. TABULACION, MAQUETACION, CABECERAS, COPIAS, 
i CASS O DISK 2.000 

I* VIC LABEL. +8K. EN COMBINACION CON VIC PRINT, ELABORA 

i ETIQUETAS PARA DIRECCIONES 1.900 

!• VIC POST. +8K. ELABORA LETRAS Y TEXTOS ESPECIALES EN 

I TAMAÑO Y FORMA PARA POSTERS, LISTAS DE PRECIOS, ETC. . . 2.900 

|« VIC CALC. HERRAMIENTA DE CALCULO QUE SUSTITUYE AL LAPIZ, 
| PAPEL Y CALCULADORA, REALIZA COMPLEJOS MODELOS FINAN- 
¡ CIEROS CON POSIBILIDAD DE AJUSTARLO A OTROS PARAMETROS 
' CON SOLO PULSAR UNA TECLA. 16K DE MEMORIA 3.200 



• 3D LABYRINTH. +8K. C/M. A/R. EXTRAORDINARIO LABERINTO 
TRIDIMENSIONAL. ¿SERA CAPAZ DE SALIR DE EL? UNO O VARIOS 
JUGADORES 1800 

• GOLF. 3,5K. RECORRIDO DE 9 HOYOS PERO ATENCION A LOS OBS- 
TACULOS: ARBOLES, LAGOS, ETC. INCLUYE VIC MUSIC Y PIANO 1.600 

• CARRERA DE BUGGYS. 3,5K. C/M. A/R. G/E. ESPECTACULAR 
RECORRIDO. ACELERADOR. DECELERACION. 9 NIVELES 1.800 

• GRIDRUNNER. 3.5K. C/M. A/R. G/E. JY. IMPRESIONANTE VER- 
SION LLENA DE COLORIDO, MOVILIDAD Y SONIDO DEL POPULAR 
"CENTIPEDE" 1.900 

• HI-RES. 3,5K. GRAN JUEGO DEMO/UTILIDAD PARA REALIZAR 
EN PANTALLA GRAFICOS EN ALTA RESOLUCION. INCLUYE GEN. 
CARACTERES 1.S00 

• ABDUCTOR. LAS CRIATURAS COSMICAS DEL PLANETA "ALPHA I" 
INTENTARAN SECUESTRAR A LOS HUMANOIDES PARA CONSEGUIR 
ENERGIA E INTELIGENCIA SUPERIORES. TU MISION SERA DEFEN- 
DER TU PLANETA Y DESTRUIR LAS NAVES ABDUCTORAS. (STAN- 
DARD) 1.800 

• TRAXX. VERSION DEL CONOCIDO JUEGO "AMIDAR"; MEZCLA 
DEL POPULAR "PACKMAN" Y DEL JUEGO "QUIX". 100% CODIGO 
MAQUINA. GRAFICOS EN ALTA RESOLUCION. ESPECTACULAR 
SONIDO Y COLOR. 8K DE MEMORIA 2.000 

• VIC BASE. 16K. POTENTE BANCO DE DATOS. 255 CARACTERES, I 
MAS DE 25 CAMPOS. CAMBIO Y LOCALIZACION, SALIDA IM- 
PRESORA 3.200 j 

OPCION 3,5K 1.30oj 

• GRAPHVICS. +3K. AÑADE 18 POTENTES COMANDOS PARA PO- 
SICIONAR PUNTOS, DIBUJAR LINEAS Y TEXTOS EN ALTA RESO- 
LUCION (152X160) 2.200 

• GRAPH EDITOR & SOFTKEY 24, 3,5K. AMBOS PROGRAMAS PER- 
MITEN DISEÑAR HASTA 64 CARACTERES PARA INCORPORARLOS 

A SUS PROPIOS PROGRAMAS Y JUEGOS 2.000 



>3 200 



| • QUIZ-MASTER. +3K. EL MAS ESPECTACULAR AVANCE EDUCATIVO. ^ 
¡ PERMITE LA CORRECCION Y PUNTUACION DE TODAS LAS RES- 
PUESTAS QUE RECIBE EL ORDENADOR 

• QUIZ SET-UP. EN TANDEM CON QUIZ— MASTER PERMITE LA ELA- 
BORACION POR EL USUARIO DE TODO TIPO DE PREGUNTAS Y 
CUESTIONES EDUCATIVAS O DE ENTRETENIMIENTO, EGB, IDIO- 
MAS, MATEMATICAS, HISTORIA, GEOGRAFIA, ETC. CREANDO 
UN AGIL Y ATRACTIVO SISTEMA DOMESTICO/EDUCATIVO 

!• FACEMAKER. 16K. CARICATURANDO EL ROSTRO DE SUS COMPA- 
I ÑEROS Y AMIGOS EL VIC 20 PONDRA A PRUEBA EL VOCABULARIO 
S Y LA ATENCION DEL NIÑO 2.000 



• NUMBER CHASER. 16K. PROGRAMA PARA PRACTICAS DE MUL- 
TIPLICACION CON CARRERAS DE COCHES, ADELANTA, FRENA, 
ACELERA SEGUN LAS RESPUESTAS. 4 NIVELES DE DIFICULTAD . . . 2.000 

• NUMBER GULPER. 16K. JUEGO EDUCACIONAL DE COMPETICION 

CON NUMEROS PARA SUMA, RESTA, MULTIPLICACION Y DIVISION 2.000 I 

• WE WANT TO COUNT. 16K PROGRAMA PARA NIÑOS A PARTIR I 
DE TRES AÑOS, INVASORES, CARRERAS, ETC 2.000 

• TWISTER. 16K. JUEGO DE LOGICA Y CONCENTRACION. PUZZLES 
GEOMETRICOS CON SONIDO Y COLOR 2.000 1 



■ VIC REVEALED 2.200 

■ GETTIN ACQUAINTED WITH YOUR VIC 

II 20 1.800 

* 50 PROGRAMAS LISTADOS I 1 .500 



ASSEMBLER 2.000 

SYNPHONY MELANCHOLY COMP 1.800 

50 PROGRAMAS LISTADOS II 1.500 



ZAP! POW! BOOM! 1.8001 

VIC INNOVATIVE 2.000 I 

50 PROGRAMAS LISTADOS III 1 .500 1 
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DE DATOí 





por P. MASATS 

Muchos usuarios nos dirigen consultas respecto a la utiliza- 
ción de cassettes en el VIC. Se quejan de que no pueden escri- 
bir sus datos en el cassette y volverlos a leer, por lo cual dedi- 
camos este artículo a los sistemas de grabación y lectura de 
datos en cinta. Es posible hacer cosas más sofisticadas de las 
que vamos a describir pero lo que aquí se describe puede ser- 
vir de punto de partida para la experimentación. 



Escribir en el cassette es como es- 
cribir en la pantalla excepto que la 
información queda inscrita en la cinta 
como series de impulsos. 

Antes de escribir nada en el cas- 
sette, debe abrirse un área de trabajo 
utilizando 0PEN2, 1,1, "NOMBRE DEL 
FICHERO". Esto le indica al VIC que 
queremos utilizar el cassette y empe- 
zará la operación grabando en la cinta 
el título (en este caso, "NOMBRE DEL 
FICHERO"). Esta operación es vital 
puesto que marca el principio del fi- 
chero (el fichero es el conjunto de 
datos que vamos a grabar bajo la de- 
nominación "NOMBRE DEL FICHE- 
RO"), y también asegura que se ha 
puesto en marcha el aparato de cas- 
sette. Téngase en cuenta que el VIC 
puede advertir cuándo se ha pulsado 
una tecla en el cassette pero no dis- 
tingue entre PLAY, RECORD, F.FWD 
o REW. De manera que depende del 
usuario el asegurarse de que ha apre- 
tado las teclas correctas al recibir el 
mensaje "PRESS RECORD & PLAY 
ON TAPE". 

El primer número después de OPEN 
dice cómo nos vamos a referir a los 
datos durante el resto del programa 
y puede ser un número arbitrario en- 
tre 1 y 127. Este número designa el 
fichero lógico con el que se va a tra- 
bajar. Entendemos por fichero lógico 
una zona de memoria (que se asigna 
por el sistema operativo y que suele 



ser de 192 bytes) que sirve de inter- 
medio entre el ordenador y el peri- 
férico — el cassette en nuestro ca- 
so — . Su función es servir de alma- 
cenamiento temporal de los datos 
hasta completar un bloque de dimen- 
siones determinadas por la naturale- 
za del periférico que se vaya a utili- 
zar, dado que en la cinta se graba un 
paquete de 192 bytes. En este «BUF- 



FER» (es el nombre que se suele dar 
a estas zonas de memoria) se van 
guardando los datos generados por el 
programa hasta tener la cantidad ne- 
cesaria. Entonces se graba y se vuel- 
ve a repetir la operación hasta que el 
programa encuentra la sentencia 
CLOSE y, entendiendo que se han ter- 
minado los datos a grabar, envía los 
que tiene aunque no esté lleno. En 
este caso utilizamos el fichero lógico 
número 2, y utilizaremos PRINT#2 pa- 
ra acceder a la unidad de cassette. 
La razón por la que esto es necesa- 
rio es que, con discos e impresoras, 
podemos acceder a varios canales de 
datos diferentes en el curso de un 
mismo programa. 

El segundo número identifica al pe- 
riférico que queremos utilizar (el nú- 




división 
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mero 1 es la unidad de cassette) y el 
tercero se utiliza para seleccionar 
lectura[0) o escriturad]. La interpre- 
tación de este tercer número depen- 
de del periférico utilizado. 

Finalmente, los caracteres entre co- 
millas designan el título del fichero 
de datos que vamos a grabar. Esto es 
útil a la hora de leer para asegurar- 
nos de que vamos a leer el fichero 
correcto. 

Durante el comando OPEN, la cinta 
se moverá un momento y luego se pa- 
rará. El cassette está entonces listo 
para recibir datos. En vez de PRINT, 
utilizamos PRlNT#2, lo cual envía el 
dato al periférico especificado en el 
comando de OPEN. Nótese la coma 
entre PR1NT#2 y la variable. 

En las primeras etapas de práctica 
en el uso del cassette es mejor tener 
sólo una variable para cada PRINT#2 
utilizado y asegurarse de que la ins- 
trucción no finaliza en coma o punto 
y coma. Al leer el dato, necesitamos 
un «return» al final de cada variable 
al igual que hemos de apretar RE- 
TURN cuando tecleamos datos en el 
teclado. Esto se escribirá en el cas- 
sette al final del dato, suponiendo 
que no le hemos indicado lo contra- 
rio con una coma o un punto y coma. 

Una vez se han escrito todos los 
datos, es esencial decirle al VIC que 
hemos acabado nuestro trabajo con 
la unidad de cassette. Esto se hace 
mediante el comando CLOSE, que se 
asegurará de que los últimos datos 
están en la cinta (sería posible que 
aún estuvieran en el VIC esperando 
a ser escritos). En nuestro ejemplo 
utilizamos CLOSE2 para acabar, de 
manera que el número utilizado sea el 
mismo que el primer número en el 
comando OPEN. Para operaciones se- 
guras con cassette no está nunca de 
más insistir en la importancia del 
CLOSE. 

Imaginemos que hemos preparado 
dos «arrays» en memoria. Cada uno 
de ellos, con 20 valores — NOMI(I), 
contiene los nombres de los amigos, 
y NUM(I) contiene sus números de 
teléfono. Si queremos grabar esta in- 
formación en cassette, podemos ha- 
cerlo como sigue: 

1000 OPEN2.1.1, "LISTIN" 
1010 FORI = 1TO20 
1020 PRINT#2,NOMS(l) 
1030 PRINT#2,NUMS(I) 
1040 NEXTI 
1050 CLOSE2 



Ahora tenemos que volver a leer 
los datos. Después de rebobinar el 
cassette, utilizamos de nuevo el 
OPEN pero ahora en la forma OPEN2, 
1,0, "LISTIN", donde el cero indica que 
queremos leer los datos. También in- 
cluimos el nombre con que grabamos 
el fichero; y el VIC empezará a leer 
el cassette, buscando el título con 
que hayamos hecho el OPEN. 

Si el nombre se omite y utilizamos 
OPEN2,1,0 (o incluso OPEN2, puesto 
que el VIC asume que queremos una 
lectura en el cassette si estos pará- 
metros no se dan) el VIC trabajará 
con el primer título del cassette. 

Una vez encontrado el fichero, los 
datos están listos para leerse. Utili- 
zamos simplemente INPUT# 2 en lugar 
de INPUT, y nos aseguramos de que 
leemos los datos en el mismo orden 
en que han sido escritos, aunque los 
nombres de las variables no tienen 
por qué ser los mismos. O sea que 
para leer la lista de teléfonos, pode- 
mos utilizar: 

1000 OPEN2, 1,0, "LISTIN" 
1010 FORI = 1T020 
1020 INPUT#2,AS(I) 
1030 INPUT#2,B$(I) 
1040 NEXTI 
1050 CLOSE2 

Utilizar un PRINT# con diferentes 
variables, de la misma manera en que 
lo haríamos en la pantalla, puede cau- 
sar problemas, pues el cassette no 
tiene manera de identificar dónde 
acaba una variable (la parte corres- 
pondiente a cada variable) y dónde 
empieza la siguiente. Debe haber co- 
mas entre estas variables y el INPUT 
# debe tener el mismo número de 
variables que el PRINT# correspon- 
diente. Hasta que se esté totalmente 
familiarizado con estos problemas, 
es aconsejable evitar tener más de 
una variable en cada instrucción 
PRINT#. 

Igualmente, debe tenerse cuidado 
en evitar leer más allá del último da- 
to escrito — si es necesario utilícese 
un valor especial para señalizar el 
final de los datos (p. ej., 9999) que le 
permita detener el programa en cuan- 
to se lea. Leer más allá del último 
dato escrito puede causar problemas 
y obtener un mensaje "STRING TOO 
LONG ERROR", incluso si lo que se 
estaba buscando era un número. 

(pasa a la pág. siguiente) 



Electrónica 



En sus páginas ya se han publica- 
do, desde el n.° 1 (febrero 1982): 

• Programas para VIC-20: 

— Generación de sonido y pro- 
grama para piano 

— Cálculo de estabilizadores 
con Zener 

— El Despertador 



• Se han publicado artículos sobre 
los siguientes temas: 

— Lenguajes de programación. 

— La ampliación de un ordena- 
dor con los periféricos. 

— Qué es y cómo funciona un 
ordenador personal. 

— Cuadro de ordenadores pro- 
fesionales/personales en el 
mercado español. 

— Interfaz para cassette. 

— Cuatro puntos decisivos en 
la elección de un ordenador. 

— Los modems. 

— Discos flexibles (floppy disk). 

— Realización de un teclado 
ASCII a partir de un hexa- 
decimal. 

— Las nuevas CPUs: arquitectu- 
ras distintas, más potencia, 
mayor flexibilidad. 

— Serie de artículos sobre los 
microprocesadores con análi- 
sis de todos sus aspectos, en 
forma progresiva. 

— Aplicaciones de microproce- 
sadores: un sistema de semá- 
foros en la vía pública, Sis- 
tema de alarma anti-robo, 
Sencilla aplicación para mo- 
tores de cassette o de jugue- 
tes eléctricos. 

— Rutinas útiles para la clasifi- 
cación de datos (SORT). 

— Descripción de la PIA. 

— Los convertidores analógico- 
digitales y digital-analógi- 
cos. 

— Nuevos equipos operativos 
de burbujas magnéticas para 
la investigación y las aplica- 
ciones industriales. 

— Los cálculos de puentes de 
medida realizados con micro- 
ordenador. 

— VIC-20 y micros PET/CBM. 

— Diseño y simulación de un 
proyecto con microprocesa- 
dor, desarrollado con el AIM- 
65. 

— Las impresoras. 

— Temporizador programable. 

• Fichas técnicas de microprocesa- 
dores y de micro-ordenadores 

Para números atrasados y para 
suscripción anual (1.975 ptas.), 
dirigirse a: 

REDE - Apdo. 35400 - Barcelona 
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Si se tienen dudas sobre el conte- 
nido de un fichero en concreto, es 
posible extraer los datos grabados ca- 
rácter a carácter y verlos a través de 
la pantalla con el programa siguiente: 

100 OPEN2 
110 GET#2,AS 
120 PRINTAS 
130 GOTO110 

Depurar programas utilizando el 
cassette es, a veces, bastante difícil, 
y hay un truco que permite poner los 
datos en la pantalla, en vez de en el 
cassette, para asegurarse de que la 
estructura es la correcta, sin conver- 
tir el PR1NT#2 en PRINT. Si se cam- 
bia el OPEN del periférico 1 al perifé- 
rico 3 (la pantalla) — en otras pala- 
bras, OPEN2,3,1 ."NOMBRE DEL FI- 
CHERO" — todos los datos aparece- 
rán en la pantalla, en lugar de en el 
cassette. 

Igualmente es posible imitar la lec- 
tura del cassette utilizando el perifé- 
rico (el teclado) en el comando 
OPEN, y simular el INPUT# del cas- 
sette tecleando Ud. mismo los datos 
en el teclado. En este caso le adver- 



(conclusión) 

timos de que no recibirá el «?» nor- 
mal. Aparecerá simplemente un cur- 
sor destelleante. 

Debido a la manera en que el cas- 
sette graba los datos no es posible 
escribir paquetes individuales de da- 
tos para actualizarlos. En cambio, to- 
dos los datos deben leerse dentro del 
VIC, realizar los cambios necesarios 
y luego grabarse nuevamente en su 
totalidad. Esto puede resultar algo te- 
dioso pero es la única manera. La 
totalidad de los datos registrados en 
la cinta desde el OPEN hasta el 
CLOSE se conoce como el fichero de 
datos. 

Puede haber diversos ficheros en 
el cassette, cada uno con un NOM- 
BRE o título diferente. Si el VIC no 
encuentra el fichero especificado en 
el comando OPEN de lectura, conti- 
nuará leyendo la cinta hasta encon- 
trar el que está buscando. Esto puede 
suponer un problema si sólo se tienen 
uno o dos ficheros en el programa y 
el VIC procede a leer la totalidad de 
una cinta C90 para un fichero que no 
existe. 

Para evitar leer más allá del último 
fichero, es posible etiquetarlo como 
el último en la cinta. Para ello utili- 
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zamos OPEN2,1,2,"NOMBRE DEL FI- 
CHERO". 

En otras palabras, sustituimos el 1 
(que indica que queremos escribir un 
dato) por el 2 (que indica que quere- 
mos escribir pero que es el último 
dato que aparecerá en el cassette). 
Si el cassette se lee y el fichero que 
buscamos no se encuentra, obtendre- 
mos un error de "FILE NOT FOUND", 
y la búsqueda finalizará. 

Dado que el cassette que utiliza- 
mos es idéntico a los cassettes nor- 
males de audio, es posible escuchar 
la cinta en un reproductor de música. 
En primer lugar se escucharán unos 
nueve segundos de una señal de au- 
dio pura. Es la señal que sirve para 
sincronizar la operación de lectura. A 
continuación, tres segundos de zum- 
bido, que son el título de bloque. 
El dato se graba en bloques de 192 
caracteres (que es la razón por la 
cual el cassette se para y se pone en 
marcha mientras está en uso) y cada 
uno es precedido por una señal de 
sincronización y seguido de un zum- 
bido que es el dato. Dado que cada 
bloque está escrito dos veces por 
razones de seguridad, habrá una pau- 
sa allí donde empieza la segunda co- 
pia. 

Un programa tiene la misma es- 
tructura pero está grabado como un 
largo bloque cuya longitud depende 
de la longitud del propio programa 
aunque seguirá habiendo una pausa 
allí donde empiece la segunda copia 
del mismo. 

Si el cassette está totalmente re- 
bobinado, hay una gran probabilidad 
de que haya hasta diez segundos de 
cinta transparente que no graba, al 
principio de la cinta. Si este trozo es 
de menos de siete u ocho segundos, 
no debería haber ningún problema. 
Pero si es demasiado larga, la señal 
de sincronismo, o incluso el bloque 
con el título, podrían no quedar escri- 
tos en la cinta del cassette. Ésta es 
probablemente la principal causa de 
los fallos del cassette en lectura/ 
escritura puesto que la lectura no 
puede ser realizada sin esa señal de 
sincronización y el bloque del título. 
La solución es asegurarse de que el 
cassette está rebobinado sólo hasta 
el final de la cinta transparente cada 
vez que tengamos que grabar datos. 
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BANCO DE PRUE 



el cartucho 



del 

VIC-20 



por PERE MASATS 



Ouando el VIC está «pensando» una jugada, el logotipo 
de COMMODORE aparece en color rojo. También puede 
verse el número de movimiento futuro que el VIC está 
estudiando en la parte derecha de la pantalla. Asimismo 
el movimiento que la máquina está considerando se puede 
ver en la parte inferior del registro de movimientos. 

Una característica interesante para neófitos en aje- 
drez es la de que, jugando en niveles superiores al 0, al 
llegar el turno del operador si éste pulsa las teclas SHIFT 
y/(el signo «?») el VIC aconsejará al usuario el próximo 
movimiento escribiéndolo en la parte inferior del registro 
de movimientos. Si el jugador decide aceptar el consejo, 
simplemente debe pulsar RETURN y la indicada por el VIC 
será su próxima jugada. (Si uno se fía demasiado de estos 
consejos su ego puede salir perjudicado, pues el VIC tien- 
de a «barrer para casa».) 

Para jugar normalmente se deben entrar las coorde- 
nadas de la pieza que se desea mover y las de la casilla 
de destino separadas por un signo «-». También es posible 
jugar con la palanca para juegos (JOYSTICK). Para ello se 
debe situar sobre la pieza que se desea mover y se debe 
pulsar el botón rojo. Seguidamente se mueve el cursor 
sobre el lugar de destino y se pulsa el botón rojo. También 
pueden realizarse movimientos especiales: ENROQUE: 
solamente es necesario entrar el movimiento del rey, el 
resto se realiza automáticamente; captura EN PASSANT 
se debe entrar el movimiento del peón. 

Si se ha escogido el modo SETUP, aparecerá el tablero 
de ajedrez con la casilla inferior izquierda parpadeando, 
con las teclas de movimiento del cursor se sitúa sobre la 
casilla que se quiere modificar y se procede como sigue: 

— Si se desea eliminar una pieza que está en esta 
casilla, se pulsa la tecla INST/DEL. 

— Si se necesita poner una pieza en dicha casilla, se 
debe teclear un código que es como sigue: K = rey, Q = 
reina, R = torre, B = alfil, N = caballo y P = peón. A con- 
tinuación de esta letra debe indicarse el color de la pieza: 
B = negra yW = blanca. Por último, un número indicará 
al VIC si esta pieza se supone que ha sido previamente 
movida o no: si no ha sido movida y 1 si lo ha sido con 
anterioridad. 




Cuando se ha completado la configuración del tablero 
se debe pulsar RETURN y el VIC preguntará: COLOUR TO 
MOVE NEXT (B,W): es decir ¿qué color es el próximo en 
mover? A lo que se contestará con el código ya conocido. 
Seguidamente el equipo pregunta: MOVE NUMBER (NN): 
es decir, el número de movimiento en el que se establece 
el juego. Este número se considera por el programa para 
establecer la estrategia según el desarrollo de la partida. 
A continuación: YOUR COLOR (B,W): y LEVEL OF PLAY 
(0-6): que son los mismos que en el juego normal. 

Como puede comprobarse fácilmente, las caracterís- 
ticas de este programa lo hacen muy interesante, tanto 
para el aficionado experto en ajedrez como para el prin- 
cipiante. Como ilustración en las figuras se incluye una 
breve partida. 

A título meramente indicativo, los tiempos que invier- 
te el VIC en sus movimientos en función del nivel de 
juego son los siguientes: 

0: Respuesta inmediata 

1 : 20 segundos 

2: 1 minuto 

3: 2 minutos 

4: 6 minutos 

5: 40 minutos 

6: 4 horas 

Estos tiempos son muy variables y r 
variaciones entre un tercio y tres veces 
dados anteriormente. 



6 
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SOFTWARE DE BASE (I) 




por E. MARTÍNEZ DE CARVAJAL 



Ernesto Martínez de Carvajal parece que le ha tomado afición 
a colaborar en nuestra Revista (un bello ejemplo a seguir, 
por cierto) y se nos ha comprometido a desarrollar una sec- 
ción él solo. Su título será SOFTWARE DE BASE y tratará de 
los problemas de la programación cuya solución constituye el 
fundamento sobre el que construir un buen programa. Espe- 
ramos que éste tenga el mismo éxito que los anteriores artícu- 
los de Ernesto. 



Uno de los más típicos problemas 
con que se enfrentan los ordenadores 
es la clasificación de datos y, por lo 
tanto, los «sorts» son uno de los prin- 
cipales elementos constituyentes de 
la familia denominada software de ba- 
se, tanto en las aplicaciones comer- 
ciales o de gestión como científicas, 
por lo que se han desarrollado mu- 
chos tipos que, si bien tienen un fin 
común, cubren las diferentes necesi- 
dades de cada usuario. Los factores a 
tener en cuenta a la hora de escoger 
un método de ordenación son: veloci- 
dad, recursos necesarios, longitud de 
la rutina y sencillez de la programa- 
ción. Los dos primeros son los de 
más peso. Teniendo en cuenta que el 
VIC es uno de los micros más rápi- 
dos del mercado, se le puede sacar 
bastante partido en este campo. 

Con este artículo inicio una serie 
destinada a describir y comparar los 
diferentes medios de ordenación más 
usuales. En términos generales se 
pueden agrupar en dos grandes su- 
perfamilias que se acostumbran a de- 
nominar «métodos comparativos» y 
«métodos distributivos». En la prime- 
ra de ellas, se considera la clave (es 
la parte del elemento que se utiliza) 
como un todo en la comparación 
mientras que en la segunda se consi- 
dera la clase carácter a carácter o co- 
mo entidades separadas y, entonces, 
la colocación relativa de un elemen- 



to durante la ordenación no depende 
de la magnitud de su clave sino de 
sus características con relación a un 
modelo dado. Un ejemplo de la prime- 
ra puede ser la ordenación alfabética 
de una serie de nombres y, de la se- 
gunda, la ordenación de una baraja de 
cartas que primero habría que sepa- 
rar por palos y después, dentro de 
éstos, por cifras. 

Dentro de la primera superfamilia 
se pueden considerar las siguientes 
familias: 

MÉTODO DE ENUMERACIÓN 
O CONTAJE 

La idea de este método es muy 
sencilla y se presta muy bien a apli- 
carla manualmente a un grupo de ci- 
fras en un papel. Consiste en contar 
el número de elementos inferior a 
cada uno de ellos. Al final, el valor 
que nos indique cada uno de los con- 
tadores más uno, nos dará la posi- 
ción relativa del elemento dentro de 
la tabla. Sólo se requiere un espacio 
adicional para un contador por cada 
elemento de la tabla y un tiempo de 
ordenador que no es tan pequeño a 
medida que crece la tabla. 

MÉTODO DE SELECCIÓN 

La base de este método consiste 
en localizar el elemento más pequeño 



de la tabla que se separa, de alguna 
manera, del resto. Después se busca 
el siguiente más pequeño y así suce- 
sivamente. 



MÉTODO DE INTERCAMBIO 

La idea de este método es ir reco- 
rriendo la tabla a ordenar e ir inter- 
cambiando entre sí cada pareja de 
elementos desordenados, repitiendo 
el proceso hasta que no haya ningún 
par de éstos. Es uno de los métodos 
más utilizados, cuando no es muy im- 
portante el tiempo de ordenación, ya 
que une la sencillez de programación 
a los pocos recursos adicionales de 
memoria. 



MÉTODO DE INSERCIÓN 

Este método se basa en la inser- 
ción sucesiva de nuevos elementos 
en una tabla que va creciendo ordena- 
da. Es decir, se toma un elemento 
cada vez y se inserta en su posición 
correcta respecto de los elementos 
ya clasificados. 

MÉTODO DE FUSIÓN 

La idea de este método es tratar la 
tabla inicial como trozos que se tie- 
nen que intercalar, existiendo tantos 
trozos como rupturas de secuencia 
haya o bien como N trozos de I ele- 
mentos cada uno. A base de fusiones 
sucesivas, se obtienen trozos cada 
vez más grandes hasta llegar a tener 
la lista totalmente ordenada. 

Paso ahora a detallaros cada uno 
de estos métodos. Este artículo lo 
dedicaremos al primero de ellos: 

CLASIFICACIÓN POR MONTAJE 
O ENUMERACIÓN 

Éste es un método con poco porve- 
nir, mejor sería decir ninguno, pudién- 
dose considerar como una vía muerta 
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18 REM SUERUTINH SORT POR NUMERACION nnHIn 

JE 

20 REM 

30 REM 81 ¡82 - ERNESTO MTNZ. DE CflRVflJHL HED 
RICH 

48 ÍNPUT "NUM. ELEMENTOS : "¿N 

50 Din TKN>,T2<N>,T3<N> 

60 FOR I = 1 TON «TK-I WNtO»«K0>Mee> iNEXTI 
80 TIÍ-"00000O" 
100 FOR 1=1 TO H 1 
110 FOR 1=1+1 TO N 

120 IF TK.DHKJ) THEN T2< I >-T2< I>+1 :GOT0 1 
48 

130 T2CO=T2<J> + l 
140 NEXTT 
150 NEXTI 

155 F0RI=1TON:T3<T2<I:> + 1 )=T1(I) :NEXTI 
160 T*=TI* 

170 PRINT "TIEMPO ORDENAC ION PARA "jN;" ELEM 
ENTOS : •■,-MIb*<T*,3,2>;»:»;HID*<T*,5,25 

READY. 

18 REM SUBRUTINfi SORT POR NUMERACION O CONTñ 
28 REM 

30 REM 01:82 - ERNESTO MTNZ. DE CARVAJAL HED 
RICH 

40 IHPUT "NUM. ELEMENTOS : " ;N 
58 DIM T1(N>,T2(N>,T3<N> 

68 FOR I = lTON:Tia> = INT(RND<8>*100> :NEXTI 

88 TI*= "000000" 

90 REM ============== 

100 FOR 1=1 TO N-l 
110 FOR J=I + 1 TO N 

120 IF T1(I>>T1<J) THEN T2( I >=T2( I )+l ¡GOTO 1 

130 T2<J>=T2<J> + 1 
140 NEXTJ 
150 NEXTI 

155 FORI = 1TON :T3CT2< I ) + l >=TI < I > : NEXTI 
157 REM ============== 

160 T*=TI* 

170 PRINT "TIEMPO ORDENACION PflRfl ";N;" ELEM 
ENTOS : ";MID*<T*,3,2);":";MID*<Tt,5,2> 

200 OPEN 4,4:PRINT#4,CHR*<14> 

210 PRINT#4, "TABLA INICIRL CONTADORES TABL 
H FINAL" 

220 PRINTS4," 

230 FORI=lTON 

240 PRINT#4,TKI>,T2<I>,T3<I> 
250 NEXT 
260 PRINT#4 

270 PRINT#4, "TIEMPO ORDENACION PARA ";N;" EL 
EMENTOS ¡ ";MI0*<T*,3,2>,-":",-MID*<T*,5,2> 

READV. 

V 



dentro de los métodos de clasifica- 
ción. Si bien, en un principio, todos 
los métodos parten de ¡deas suma- 
mente sencillas que dan rendimientos 
pobres, son susceptibles de mejoras 
que pueden incrementar notablemen- 
te su rendimiento. Esto no sucede 
con la familia de clasificación que es- 
tamos considerando pero, teniendo en 
cuenta su sencillez, podemos dedicar- 
le algo de espacio. 

Como os he dicho anteriormente, 
la ¡dea del método es que si un ele- 
mento es mayor que otros trece quie- 
re decir que ha de ocupar el puesto 
14 en la tabla ordenada. Así pues, si 
comparamos cada par de elementos 
y contamos cuántos son menores que 
cada uno en concreto, tendremos un 
método de ordenación en donde el 
contador nos dará, al final, la situa- 
ción relativa que tiene que ocupar 
cada uno de los elementos. El algo- 
ritmo que desarrollaremos deberá te- 
ner en cuenta la posibilidad de que 
haya elementos iguales, lo cual no es 
demasiado difícil teniendo en cuenta 
que si cada par de elementos sólo se 
compara una vez y en cada compara- 
ción se incrementa uno u otro con- 
tador, según un mismo criterio y si- 
guiendo siempre el mismo orden, lle- 
garemos a un resultado final con to- 
dos los contadores distintos aunque 
haya elementos repetidos. En la figu- 
ra aparece el listado de una rutina 
de clasificación según este método. 

De la observación de la rutina se 
deduce cuál es la principal ventaja 
del método, que es su tremenda sen- 
cillez. Por contra, su principal (y defi- 
nitiva) desventaja es su bajísimo ren- 
dimiento a partir de valores de N 
(número 'de elementos de la tabla) 
relativamente grandes, como podréis 
observar en la tabla resumen que pu- 
blicaremos con el último de los mé- 
todos de esta superfamilia. 

El bajo rendimiento se debe a que 
cada elemento se ha de comparar 
con todos los otros, lo cual quiere 
decir que si el tamaño de la lista es 
N se han de hacer N'(N-1)/2 compa- 
raciones, lo cual nos da unos tiempos 
de ejecución proporcionales a N A 2 (al 
doblar el tamaño de la lista se multi- 
plica por cuatro el tiempo de ejecu- 
ción). El propio sistema seguido en el 
algoritmo nos indica que el método 
es completamente insensible a la dis- 
tribución inicial de los elementos de 
la lista, es decir, su rendimiento sólo 
depende del tamaño de la lista, y es 
independiente de la ordenación ini- 
cial. 



Tabla inicial Contadores Tabla fii 



53 


9 


2 


81 


13 


8 


79 


12 


11 


2 





16 


92 


18 


20 


54 


10 


29 


16 


3 


42 


42 


6 


44 


11 


2 


49 


49 


8 


53 


98 


19 


54 


8 


1 


68 


87 


16 


79 


29 


5 


81 


44 


7 


81 


20 


4 


86 


81 


14 


87 


87 


17 


87 


86 


15 


92 


68 


11 


98 



Tiempo ordenación para 20 elemen- 
tos: 0:03. 



Tabla inicial Contadores Tabla final 



10 


2 


2 


8 


1 


8 


46 


16 


10 


27 


10 


11 


41 


14 


11 


62 


20 


19 


24 


8 


23 


50 


18 


23 


19 


5 


24 


98 


27 


26 


89 


25 


27 


99 


29 


30 


2 





31 


38 


13 


38 


93 


26 


41 


11 


3 


41 


31 


12 


46 


54 


19 


46 


11 


4 


50 


79 


22 


54 


30 


11 


62 


46 


17 


76 


83 


23 


79 


41 


15 


83 


98 


28 


84 


84 


24 


89 


76 


21 


93 


26 


9 


98 


23 


6 


98 


23 


7 


99 



Tiempo ordenación para 30 elemen- 
tos: 0:07. 



(termina en la pág. siguiente) 

J 
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MARKETCLUB 



• Vendo aplicación de facturación con control de representantes, 9 listados, 
6 ficheros, estadísticas, etc., permite copias de seguridad. Configuración: VIC, 
8K, disco e impresora, 40.000 Ptas. Escribir a Jaime Ameller Pons. General 
Mola, 15, B. CALATAYUD (Zaragoza). 

• Vendo interfaz y programa para RTTY y CW para el PET a 15 K. Rafael, 
EA3CGK - Avda. Barcelona, 21, A, 4 5 25. IGUALADA (Barcelona). 

• Se busca experto en VIC-20 para colaborar en la creación y coordinación de 
un Club de Usuarios de VIC en Barcelona. Llamar a Srta. Rosa Romero. Telé- 
fono 21 1 54 40. 

• Vendo cartucho 16K VIC-20, por 14.000 ptas. Hago programas en Basic de 
Commodore (todas las versiones) bajo encargo. Desearía contactar con usuarios 
de Commodore en la zona de Madrid, para cambio de programas, impresiones, 
pokes especiales, etc.. Razón: Francisco Gutiérrez. Santiago Rusiñol, 12. MA- 
DRID-3. Teléf. (91) 253 13 40. Horas comida y cena. 



— J 



el esquema 
del VIC-20 

entregas para que puedan ser lo más 

gico). Petra que se pueda seguir con 
facilidad i-I ircoirido dr> una deter- 
minada señal, fajs. conductores loe 

V : : : : \ : % M : 



técnicas de ordenación... 



(conclusión) 



Tabla inicial Contadores Tabla final Tabla inicial Contadores Tabla final Tabla inicial Contadores Tabla final 



31 


10 





83 


32 





80 


30 


6 


54 


25 


13 


23 


7 


16 


37 


12 


18 


99 


37 


19 


74 


28 


23 


71 


27 


29 


81 


31 


30 


37 


13 


31 


92 


35 


34 


95 


36 


37 


99 


38 


37 


34 


11 


39 


16 


4 


40 


43 


18 


42 


50 


24 


42 


13 


3 


43 


99 


39 


44 


89 


33 


46 


44 


19 


47 








48 


42 


16 


49 


56 


26 


50 


18 


5 


54 


19 


6 


56 


40 


15 


71 


47 


21 


74 


89 


34 


79 


79 


29 


80 


49 


23 


81 





1 


83 


30 


9 


89 


46 


20 


89 


48 


22 


92 


6 


2 


95 


39 


14 


99 


29 


8 


99 


42 


17 


99 



29 


12 





87 


44 


54 


32 


14 


1 


78 


36 


57 


1 


1 


3 


74 


33 


58 


62 


30 


6 


23 


10 


61 


83 


38 


7 


17 


7 


62 


93 


46 


8 


52 


24 


63 


83 


39 


10 


69 


32 


69 


6 


3 


17 


61 


29 


74 


3 


2 


18 


18 


8 


74 


92 


45 


23 


41 


19 


76 


96 


49 


23 


37 


17 


78 


58 


28 


26 


94 


48 


79 


7 


4 


29 


86 


43 


83 


45 


22 


29 


79 


37 


83 








32 


29 


13 


83 


57 


27 


32 


45 


23 


84 


26 


11 


34 


83 


40 


85 


54 


25 
26 


37 


34 


16 


86 


54 


41 


84 


41 


87 


23 


9 


41 


63 


31 


92 


44 


21 


41 


8 


5 


93 


93 


47 


44 


41 


20 


93 


41 


18 


45 


85 


42 


94 


10 


6 


45 


74 


34 


96 


76 


35 


52 




32 


15 


54 


Tiempo 


ordenación para 


50 elen 



(pasa a la siguiente) 



tos: 0:21. 



NO r i Ü ¿ A S 



Tiempo ordenación para 
tos: 0:13. 



n- 



- 

(el 0, el 1, el 2 y el 3) para evitar la especulación y el mercado negro. Como 
somos muy previsores hemos reservado un ejemplar cié cada número para esta 
■■:-'■.:::■■':.-:>-.. • : :.":'\ .. .• -V ;. .o.":,- 

de los números 4 y 5 (y naturalmente el 6). Los demás están TODOS agotados. 
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T 



TV 


*3 




2 


id 
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PROGRAMAS VIC-20 




P.V.P. 
Ptas. 



Ref. Programa 



P.V.P. 
Ptas. 



i curso de i 
Parte i 

Con dos cintas o un disco. 
Libro curso de introducción al Basic 
Parte II 

Con dos cintas o un disco. 

D-1001 Agenda 

Necesita ampliación de 8K. 
D-1002 QSL 

Necesita ampliación de 8K. 
D-1003 Test Demo 
D-1004 Assembler 

Necesita ampliación de 3 K. 

CINTAS PARA CASSETTE 



C-125 

C-128 

C-129 

C-130 

C-131 

C-132 

C-133 

C-134 

C-135 

C-136 

C-137 

C-139 

C-140 

C-141 

C-142A 

C-142B 

C-143 

C-144 

C-145 



C-145A 
C-145B 
C-145C 



Hangmath 

No necesita ampliación. 
Programación lineal 
No necesita ampliación. 
Matrices 

No necesita ampliación. 
Caja 

Necesita ampliación de 16K 
Regresiones I 
No necesita ampli; 
Regresiones II 
No necesita ampli; 
Estadística I 
No necesita ampliación. 
Estadística II 
No necesita ampliación. 
Sistemas 

No necesita ampliación. 
Dieta 

Necesita ampliación de 8K. 
Integración 

No necesita ampliación. 
Vicalc 

No necesita ampliación. 
Skymath 

Necesita ampliación de 3K. 
Space División 
Necesita ampliación de 3K. 
Interf ace y programa CW 
No necesita ampliación. 
Programa RTTY 
No necesita ampliación. 
English Language 
Necesita ampliación de 8K. 
Quiz Master 

Necesita ampliación de 8K. 
Mastermind 

Necesita ampliación de 8K. 

Además para esta cassette 
se están preparando los si- 
guientes temas: 

Gastronomía 
Música 

Cinematografía 



2.500 



2.500 

5.000 

3.000 

3.000 
5.000 



1.500 



500 
500 
500 
500 
1.500 
500 
1.500 
1.500 
1.500 
¡5.000 
2.500 
2.000 
2.000 
3.000 



1.500 
1.500 
1.500 



C-145D Deportes 
Etc.. 

C-201 Codemaker 

No necesita ampliación. 
C-202 Wall Street 

No necesita ampliación. 
C-203 Simple Simón 

No necesita ampliación. 
C-204 Damas 

No necesita ampliación. 
C-205 Alien Blitz 

No necesita ampliación. 
C-206 Kosmic Kamikaze 

Necesita ampliación de 3 

u 8K, dado que hay dos 

versiones del juego. 
C-207 Star Wars 

No necesita ampliación de 

memoria. 
C-208 Amok 

No necesita ampliación. 
C-209 The Alien 

Necesita ampliación de 3K. 
C-210 Invader Fall 

No necesita ampliación. 
C-211 A-MAZ-ING 

Necesita ampliación de 3K. 
C-212 Math-Hurdler, Monster 

Maze 

No necesita ampliación. 
C-213 Golf 

Necesita ampliación de 3K. 
C 215 VIC GAMES II 

No necesita ampliación. 

JUEGOS EN CARTUCHO 



1.500 
1.500 
1.500 
1.500 
1.500 
1.500 
1.500 

1.500 

1.500 
1.500 
1.500 
1.500 



1904 

1906 

1907 
1908 
1901 



Super Slot 

Se juega por teclado o con 

Joystick. 

Super Allien 

Se juega por teclado o con 

Joystick. 

Júpiter Lander 

Se juega por teclado. 

Draw Poker 

Se juega por teclado. 

Avenger 

Se juega por teclado o con 

Joystick. 

Road race 

Se juega por teclado. 



PROGRAMAS PROFESIONALES 



1.500 
1.500 

4.500 

4.500 

4.500 
4.500 
4.500 

4.500 



P.V.P. 
Ptas. 



-r- 



NOVEDADES ENER0 1983 

PROGRAMAS EN CINTA: 

C-146 



Matemáticas 1 (nivel BUP) 2.000 
Necesita ampliación de 8 
ó 16K. 



C-216 
C-217 
C-218 



Escape 

No necesita ampliación. 



1.500 
2.000 



Biocomp 

Necesita ampliación de 3K. 

Cubo VIC 1.500 
No necesita ampliación. 

Type a tune 2.000 



PROGRAMAS EN CARTUCHO: 

1911 The sky is failling 4.500 
Es necesario utilizar Paddle. 

Star battle 4.500 

Se juega con teclado o con 
Joystick. 

Sargon II chess 4.500 

Se juega con teclado o con 
Joystick. 

Omega race 4.500 

Se juega con Joystick. 



1919 

1924 

C-400 
C-401 
C-402 

1912 
1909 

C-403 

C-404 



VIC FORTH 
VIC STAT 
VIC GRAPH 



consultar 
consultar 
consultar 

4.500 



Mole attack 

Sólo para teclado. 

Radar ratrace 4.500 

Se juega con teclado o con 
Joystick. 

WORDCRAFT-VIC 42.500 
(compatible series CBM8000 
y CBM 4000) 

VIC SCREEN MASTER 10.000 



PROGRAMAS EN DISCO 

D-1005 



English Language 

Necesita arap" 



D-1006 
D-1007 



Z0001 


Contabilidad S/V-20 






Stock-VIC 


D-2000 


V0501 


Control películas para 
Video-Clubs 


Z0601 


VIC/Entrapunt 


D-2001 




Nota : Para más detalles so- 


D-2002 




bre estos programas con- 




sultar. 





2.500 

8K. 

Quiz master 2.500 
Necesita ampliación de 8K. 

Matemáticas I 2.500 

(nivel de BUP) 

Necesita ampliación de 8K. 

VIC WRITER 13.000 
Necesita ampliación de 8K. 

SIMPLICALC 13.000 
Necesita ampliación de 8K. 

VIC FILE 13.000 
Necesita ampliación de 8K. 
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